home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / progDH4.1 < prev    next >
Text File  |  1995-06-29  |  441b  |  22 lines
  1. # Dan Heller's Example 4-1, p88
  2. # this works fine on my PC, doesn't show the pixmap on a Sun
  3. # need to XFlush?
  4.  
  5. # call with a bitmap eg
  6. #    moat -file prgDH4.1 xlogo32
  7.  
  8. xtAppInitialize -class Program
  9.  
  10. if {$argc < 1} {
  11.     puts stderr "Usage: command bitmap-file"
  12.     exit
  13. }
  14.  
  15. xmMainWindow .main managed
  16. xmLabel .main.lab managed -labelType pixmap -labelPixmap [lindex $argv 0]
  17. .main setValues -workWindow .main.lab
  18.  
  19. . realizeWidget
  20.  
  21. . mainLoop
  22.